home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / formset / page1.pas < prev    next >
Pascal/Delphi Source File  |  1995-12-22  |  2KB  |  82 lines
  1. {
  2.                                 Saxman Software
  3.                          Programmer Productivity Series
  4.                              Delphi Custom Controls
  5.                           Copyright 1995, Jim Standley
  6.  
  7.                               FormSet Demo, Page 1
  8. }
  9. unit Page1;
  10.  
  11. {--------------------------------} Interface {-------------------------------}
  12.  
  13. uses
  14.   Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
  15.  
  16. type
  17.   TfPage1 = class(TForm)
  18.     Page1: TLabel;
  19.     CheckBox1: TCheckBox;
  20.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  21.     procedure FormCreate(Sender: TObject);
  22.     procedure FormDestroy(Sender: TObject);
  23.     procedure FormDeactivate(Sender: TObject);
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.     procedure FormActivate(Sender: TObject);
  26.     procedure FormShow(Sender: TObject);
  27.     procedure FormHide(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   fPage1: TfPage1;
  36.  
  37. {-----------------------------} Implementation {-----------------------------}
  38. {$R *.DFM}
  39.  
  40. procedure TfPage1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  41. begin
  42.    ShowMessage('Page 1: Close Query');
  43.    CanClose := CheckBox1.Checked;
  44. end;
  45.  
  46. procedure TfPage1.FormCreate(Sender: TObject);
  47. begin
  48.    ShowMessage('Page 1: Create');
  49. end;
  50.  
  51. procedure TfPage1.FormDestroy(Sender: TObject);
  52. begin
  53.    ShowMessage('Page 1: Destroy');
  54. end;
  55.  
  56. procedure TfPage1.FormDeactivate(Sender: TObject);
  57. begin
  58.    ShowMessage('Page 1: Deactivate');
  59. end;
  60.  
  61. procedure TfPage1.FormClose(Sender: TObject; var Action: TCloseAction);
  62. begin
  63.    ShowMessage('Page 1: Close');
  64. end;
  65.  
  66. procedure TfPage1.FormActivate(Sender: TObject);
  67. begin
  68.    ShowMessage('Page 1: Activate');
  69. end;
  70.  
  71. procedure TfPage1.FormShow(Sender: TObject);
  72. begin
  73.    ShowMessage('Page 1: Show');
  74. end;
  75.  
  76. procedure TfPage1.FormHide(Sender: TObject);
  77. begin
  78.    ShowMessage('Page 1: Hide');
  79. end;
  80.  
  81. end.
  82.